home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / aed244a.zip / VARMOD.C < prev    next >
C/C++ Source or Header  |  1991-02-16  |  2KB  |  88 lines
  1. /*  VARMOD.C
  2.  *--------------------------------------------------------------------------
  3.  *
  4.  *  Converts RBBS-VAR.BAS to RBBS-VAR.MOD
  5.  *
  6.  */
  7. #include <stdio.h>
  8. #include <string.h>
  9. void main(int argc ,char *argv[] )
  10. {
  11.     FILE *fpvar, *fpmod, *fptmp;
  12.     char s[256];
  13.     int  zfs_written = 0;
  14.  
  15.     if (argc != 2 )
  16.         {
  17.         printf("Usage: VARMOD Merge File Name\n" );
  18.         return;
  19.         }
  20.     fpvar = fopen("RBBS-VAR.BAS" ,"rt" );
  21.     if (fpvar == NULL )
  22.         {
  23.         printf("Can't Find RBBS-VAR.BAS... Aborted.\n" );
  24.                 return;
  25.         }
  26.     fpmod = fopen("RBBS-VAR.MOD" ,"wt" );
  27.     if (fpmod == NULL )
  28.         {
  29.         printf("Can't Write RBBS-VAR.MOD... Aborted.\n" );
  30.         return;
  31.         }
  32.     fptmp = fopen("RBBS-VAR.TMP" ,"wt" );
  33.     if (fptmp == NULL )
  34.         {
  35.         printf("Can't Write RBBS-VAR.TMP... Aborted.\n" );
  36.         return;
  37.         }
  38.     strupr(argv[1] );
  39.     while (1 )
  40.         {
  41.         if (fgets(s ,256 ,fpvar ) == NULL )
  42.             break;
  43.         if (strncmp(s ,"DEF FN" ,6 ) == 0 )
  44.             {
  45.             fprintf(fpmod ,"' %s" ,s );
  46.             }
  47.         else if (strstr(s ,"ZFullScreenEditor" ) != NULL )
  48.             {
  49.             continue;
  50.             }
  51.         else
  52.             {
  53.             if (strstr(argv[1] ,"TOG" ) != 0 && !zfs_written )
  54.                 {
  55.                 int i = 0;
  56.                 while (s[i] != '\0' )
  57.                     {
  58.                     if (s[i] != ' ' && s[i] != '\t' )
  59.                         {
  60.                         if (strcmp(&s[i] ,"ZFullScreenEditor" ) > 0 )
  61.                             {
  62.                             while (i > 0 )
  63.                                 {
  64.                                 fputc(' ' ,fpmod );
  65.                                 fputc(' ' ,fptmp );
  66.                                 i--;
  67.                                 }
  68.                             fputs("ZFullScreenEditor, _\n" ,fpmod );
  69.                             fputs("ZFullScreenEditor, _\n" ,fptmp );
  70.                             zfs_written = 1;
  71.                             }
  72.                         break;
  73.                         }
  74.                     i++;
  75.                     }
  76.                 }
  77.             fputs(s ,fpmod );
  78.             }
  79.         fputs(s ,fptmp );
  80.         }
  81.     fclose(fpvar );
  82.     fclose(fpmod );
  83.     fclose(fptmp );
  84.  
  85.     unlink("RBBS-VAR.BAS" );
  86.     rename("RBBS-VAR.TMP" ,"RBBS-VAR.BAS" );
  87. }
  88.